home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 January / 1985-01.d64 / power basic_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  499b  |  17 lines
  1. 1 print"[147]         power basic activated"
  2. 2 print"            ctrl[146] s[146] to stop"
  3. 3 print"           ctrl[146] q[146] to resume"
  4. 10 fori=679to743:read a:x=x+a:pokei,a:next
  5. 20 ifx<>7291thenprint"error in data statements.":stop
  6. 30 sys679
  7. 40 data 120,169,180,141,20,3,169
  8. 50 data 2,141,21,3,88,96,173
  9. 60 data 141,2,201,4,208,42,165
  10. 70 data 197,201,13,208,36,120,169
  11. 80 data 49,141,20,3,169,234,141
  12. 90 data 21,3,88,173,141,2,201
  13. 100 data 4,208,249,165,197,201,62
  14. 110 data 208,250,120,169,180,141,20
  15. 120 data 3,169,2,141,21,3,76
  16. 130 data 49,234
  17.